IS
Easytrieve Plus /DB2 Training
Easytrieve Plus / DB2
Course Pre-requisites . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1
Statics vs Dynamic SQL . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2
Field Definitions and Data Types . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5
Automatic Processing . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 6
Controlled Processing . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 6
Controlled Processing . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7
SQL Communications Area . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 9
SQL Supported Commands . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 10
SQL Exercise . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 11
Appendix A - SQLCA Generated Fields
Information Systems Training
IS
Training Easytrieve Plus /DB2
Information Systems Training
IS
Easytrieve Plus /DB2 Training
Course Pre-requisites
This course provides no training in Easytrieve Plus nor in the use of DB2 and SQL. These topics
should all be studied separately prior to this course.
SQL (Structured Query Language) provides the method of access to DB2 data structures and
remains the same no matter what application language or operating system is used. It is perfectly
reasonable to study DB2/SQL in a COBOL II environment before looking at its use in Easytrieve
Plus.
Information Systems Training Page 1
IS
Training Easytrieve Plus /DB2
Static SQL and Dynamic SQL
SQL is designed to allow specification of what data is required rather than how to access it. The
access paths to the data is worked out by DB2. This may happen at two points in time:
When the SQL statement is actually executed while the program is running (Dynamic SQL)
In advance by using the SQL pre-processor on the source code (Static SQL)
The Easytrieve Plus interface uses the Dynamic and Extended Dynamic interfaces supplied by IBM.
The latter of these implements Static SQL commands. Only commands which can be executed using
the Dynamic and Extended Dynamic interfaces can be embedded in an Easytrieve Plus program.
NB. In Information Systems (BTC), programs may be run dynamically while in development, but
must be handed over to run statically in the live environment.
Dynamic SQL
To run an Easytrieve Plus / DB2 program dynamically, simply use the EZPGO catalogue
procedure to compile and run it all in one step.
Page 2 Information Systems Training
IS
Easytrieve Plus /DB2 Training
Static SQL
Before an Easytrieve Plus / DB2 program can be run using static SQL, it is first necessary to code a
PARM LINK statement at the top of the program. The syntax of this is as follows:
PARM LINK (program name [R]) +
PLAN (plan name) +
BIND (STATIC-ONLY)
The R is short for replace, and causes an existing load module of the same name to be over-written.
For the first compile of a program, the R can be left off, as the default is ADD.
The program name and plan name MUST be different from one another.
To run an Easytrieve Plus / DB2 program statically, it is necessary to use three separate catalogue
procedures. The first step uses DB2EZP to separate the program into its Easytrieve Plus and SQL
components. This step produces an Easytrieve Plus load module, which is given the program name,
and a Database Request Module (DBRM), which resides as a member in the partitioned dataset
DEV@@xx.DB2.DBRMLIB. Also produced, but invisible to the developer, is an Assembler
module, which is called dynamically at runtime to execute the SQL.
The second step of the process uses the Boots catalogue procedure DB2BIND to produce a
PLAN from the DBRM. The PLAN is given the same name as the DBRM.
Finally, the catalogued procedure TESTEZP is used to run the program.
These steps are illustrated on the diagram overleaf.
Information Systems Training Page 3
IS
Training Easytrieve Plus /DB2
DB2EZP catproc
ASM EZY +
DBRM LOAD MODULE
Assembler Module
Database Request Module
Load Library =
DB2BIND catproc
DEV@@xx.TEST.LOADLIB
DBRM Library =
DEV@@xx.DB2.DBRMLIB
PLAN TESTEZP catproc
Same name as DBRM
The stages in running an Easytrieve Plus / DB2 program under static SQL.
Page 4 Information Systems Training
IS
Easytrieve Plus /DB2 Training
Field Definitions and Data Types
Any data to be retrieved by Easytrieve Plus must be defined in the Library Section of the Easytrieve
Plus program. Such fields are called Host Variables. They can either be working storage fields or
fields in an active file. Host Variables are immediately preceded by a colon when they are referred
to in an SQL statement.
The following table shows SQL data types and their corresponding Easytrieve Plus field definitions:
SQL data type Easytrieve Plus field definition
INTEGER 4B0
SMALLINT 2B0
FLOAT none
DECIMAL (precision, scale) x P y1
CHAR (length) xA
VARCHAR none
LONG VARCHAR none
GRAPHIC (length) none
VARGRAPHIC none
LONG VARGRAPHIC none
NUL indicator variables 2B0
none xNy
none x B y2
none xUy
1
SQL does not support packed fields with a length greater than 8.
2
SQL does not support binary fields other than 2 B 0 and 4 B 0.
Information Systems Training Page 5
IS
Training Easytrieve Plus /DB2
Automatic and Controlled Processing
A DB2 table can be accessed from an Easytrieve Plus program in one of two ways:
Automatic Processing
All Easytrieve Plus programs must begin with a command such as FILE, PARM or DEFINE.
Where there is no file input - and therefore no FILE statement - it is necessary to code the
command DEFINE in front of the field definitions in the program. This statement is otherwise
optional and would normally be left out.
To specify that the job will have automatic input from SQL, it is first necessary to code the job
statement as follows:
JOB INPUT SQL
A SELECT statement must then immediately follow the JOB statement. The SELECT statement
will identify the rows and columns to be used as input to the job activity.
NB. Only one SELECT statement can be coded in each job activity.
Using this method it is possible to retrieve selected data from every row within a DB2 table.
eg. To select the contents of the column EMPNAME from the table PERSONNEL, one at a time,
using automatic input in Easytrieve Plus, code the following:
DEFINE EMP-NAMEW 5 A
JOB INPUT SQL
SELECT EMPNAME +
FROM PERSONNEL +
INTO :EMP-NAME
.... followed by other Easytrieve Plus commands.....
Page 6 Information Systems Training
IS
Easytrieve Plus /DB2 Training
Controlled Processing
As with Automatic input, it is necessary to use the Easytrieve Plus DEFINE command on the first
line of the program if there is no input file.
If controlled input is being used in an Easytrieve plus program, it is then necessary to define a cursor
in the Library section. This is done using the SQL DECLARE statement, followed by a cursor
name. Any host variables referred to in a DECLARE statement must already have been defined in
the Library section above. All other SQL statements, such as those to open, close and fetch the
cursor into a host variable are coded in the Activity section after the JOB statement, which is coded
as follows:
JOB INPUT NULL
e.g.. To fetch the contents of the first row of the column EMPNAME from the table PERSONNEL,
using a cursor with controlled input in Easytrieve Plus, code the following:
DEFINE EMP-NAME W 15 A
SQL DECLARE C1 CURSOR FOR +
SELECT EMPNAME +
FROM PERSONNEL
JOB INPUT NULL
SQL OPEN C1
SQL FETCH C1 +
INTO :EMP-NAME
.... followed by other Easytrieve Plus and SQL commands.....
When using controlled input in Easytrieve Plus, it is necessary to code a STOP statement at the end
of the program.
Information Systems Training Page 7
IS
Training Easytrieve Plus /DB2
The following SQL commands cannot be processed using Easytrieve Plus controlled SQL
processing:
DECLARE STATEMENT
DECLARE TABLE
DESCRIBE
EXECUTE
EXECUTE IMMEDIATE
INCLUDE
PREPARE
SELECT.......INTO.......
WHENEVER
Page 8 Information Systems Training
IS
Easytrieve Plus /DB2 Training
SQL Communications Area (SQLCA)
Whenever the Easytrieve Plus compiler encounters the SQL or JOB INPUT SQL statements, all
of the SQL Communications Area fields are created in 'S' working storage. These are listed in
APPENDIX A.
It is very important that the SQLCODE field in the SQLCA is always tested to determine whether
the execution of each SQL statement is successful. If the code is not equal to 0 (successful
execution) or 100 (end of table reached), then the SQLCODE should be logged and the error
reported with a meaningful message in line with error processing standards.
e.g..
IF SQLCODE NE 0 AND +
SQLCODE NE 100 +
DISPLAY 'SQL ERROR - SQLCODE = ' SQLCODE
STOP
END-IF
Information Systems Training Page 9
IS
Training Easytrieve Plus /DB2
SQL Supported Commands
The following is a list of the DB2 commands that can be processed using Controlled SQL
processing:
Information Retrieval / Updating Commands:
DECLARE CONNECT
SELECT COMMIT
OPEN ROLLBACK
FETCH PUT
CLOSE UPDATE
DELETE INSERT
Other Supported Commands:
ALTER INDEX CREATE VIEW
ALTER STORGROUP DROP INDEX
ALTER TABLE DROP SYNONYM
ALTER TABLESPACE DROP TABLE
COMMENT EXPLAIN
CREATE DATABASE GRANT
CREATE INDEX LABEL
CREATE STORGROUP LOCK
CREATE SYNONYM REVOKE
CREATE TABLE CREATE TABLESPACE
For further Easytrieve Plus / DB2 examples, see the Easytrieve Plus Reference Manual.
Page 10 Information Systems Training
IS
Easytrieve Plus /DB2 Training
Easytrieve Plus / DB2 Exercise
Produce a report containing the fields:
Employee number
Employee's first name and surname
Department number
Salary
for those employees in the table DEV@@TR.TRTEMPL whose jobcode is greater than 52 and
were born before 1948. If you don't have one already, obtain a copy of the table from a trainer
before doing this exercise.
The output should be sorted into ascending surname order.
Also, give a total for all the salaries printed out.
Write programs to produce the report specified above, using:
1) Controlled input with dynamic SQL
2) Automatic input with dynamic SQL
3) Controlled input with static SQL
Information Systems Training Page 11
IS
Training Easytrieve Plus /DB2
Appendix A - SQLCA Generated Fields
DEFINE SQLCA S 136 A
DEFINE SQLCAID SQLCA 8 A
DEFINE SQLCABC SQLCA +8 4 B 0
DEFINE SQLCODE SQLCA +12 4 B 0
DEFINE SQLERRM SQLCA +16 72 A
DEFINE SQLERRML SQLCA +16 2 B 0
DEFINE SQLERRMC SQLCA +18 70 A
DEFINE SQLERRP SQLCA +88 8 A
DEFINE SQLERRD SQLCA +96 4 B 0 OCCURS 6
DEFINE SQLWARN SQLCA +120 8 A
DEFINE SQLWARN0 SQLCA +120 1 A
DEFINE SQLWARN1 SQLCA +121 1 A
DEFINE SQLWARN2 SQLCA +122 1 A
DEFINE SQLWARN3 SQLCA +123 1 A
DEFINE SQLWARN4 SQLCA +124 1 A
DEFINE SQLWARN5 SQLCA +125 1 A
DEFINE SQLWARN6 SQLCA +126 1 A
DEFINE SQLWARN7 SQLCA +127 1 A
DEFINE SQLWARN8 SQLCA +128 1 A
DEFINE SQLWARN9 SQLCA +129 1 A
DEFINE SQLWARNA SQLCA +130 1 A
Page 12 Information Systems Training